(server-unload-hook): New function.

diff --git a/lisp/server.el b/lisp/server.el
index ec7fdafb8511e8f0d9ca0bdf2c0b2018dcd9c3f5..39ba7a8afd2a3d2ef37ca1c43bc13c7ea755f499 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -546,6 +546,11 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
          (switch-to-buffer (other-buffer))))))
 
 (global-set-key "\C-x#" 'server-edit)
+
+(defun server-unload-hook ()
+  (remove-hook 'kill-buffer-query-functions 'server-kill-buffer-query-function)
+  (remove-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
+  (remove-hook 'kill-buffer-hook 'server-kill-buffer))
 \f
 (provide 'server)